home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / usr / lib / metasploit / sdk / formatGen.pl next >
Perl Script  |  2006-06-30  |  739b  |  31 lines
  1. #!/usr/bin/perl
  2. use strict;
  3. use lib 'lib';
  4. use lib '../lib';
  5. use Pex::Utils;
  6.  
  7. die(qq{
  8. Format String Overwrite Generator
  9.  
  10. Currently only supports %hn
  11.  
  12. usage:   where what [ options ]
  13. example: 0x12345678 0x41414141 offset 4 before 2
  14.  
  15. options:
  16.   offset - offset to controlled location (in dwords on x86, etc)
  17.   before - number of characters printed before our part of controlled fmt
  18.   pack   - endianess, currently supported V for little and N for big
  19.            defaults to V (little)
  20.  
  21. }) if(@ARGV < 2);
  22.  
  23. my $where = hex(shift);
  24. my $what = hex(shift);
  25. my $fmt = Pex::Utils::FormatOverwrite('where', $where, 'what', $what, @ARGV);
  26.  
  27. print STDERR sprintf("\n where: 0x%08x\n  what: 0x%08x\n   fmt: %s\n\n",
  28.   $where, $what, $fmt);
  29.  
  30. print $fmt;
  31.